ASKER
Declare Function GetPrivateProfileStringA Lib "kernel32" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Declare Function WritePrivateProfileStringA Lib "kernel32" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpSet$, ByVal lpFileName$) As Integer
Public Function GetIni(FileName As String, Section As String, KeyWord As String)
Dim iErr As Integer
Dim Msg, success, X As String
Dim Result As String * 128
10 iErr = 0
20 On Error GoTo PROC_ERR
30 success = GetPrivateProfileStringA(Section, KeyWord, "", Result, Len(Result), FileName)
40 If Left$(Result, 1) <> Chr$(0) Then
50 X = Left$(Result, InStr(Result, Chr$(0)) - 1)
60 Else
70 X = ""
80 End If
90 GetIni = UCase(X)
PROC_EXIT:
100 Exit Function
PROC_ERR:
110 If iErr > 3 Then
120 ' YOUR ERROR LOGGING HERE
130 Resume PROC_EXIT
140 Else
150 iErr = iErr + 1
160 Resume
170 End If
End Function
Public Function WriteINI(FileName As String, Section As String, KeyWord As String, SetWord As String)
Dim iErr As Integer
Dim Msg, success, X As String
Dim Result As String * 128
10 iErr = 0
20 On Error GoTo PROC_ERR
30 success = WritePrivateProfileStringA(Section, KeyWord, SetWord, FileName)
40 If Left$(Result, 1) <> Chr$(0) Then
50 X = Left$(Result, InStr(Result, Chr$(0)) - 1)
60 Else
70 X = ""
80 End If
90 WriteINI = UCase(X)
PROC_EXIT:
100 Exit Function
PROC_ERR:
110 If iErr > 3 Then
120 ' YOUR ERROR LOGGING HERE
130 Resume PROC_EXIT
140 Else
150 iErr = iErr + 1
160 Resume
170 End If
End Function
Dim OutStr as String
Dim i as Single
Open App.Path & "\MyData.txt" For Append As #1
OutStr = ""
For i = 0 to myRS.Fields.Count - 1
OutStr = OutStr & iif(OutStr = "","",",") & myRS.Fields(i).Name
Next
Do while not myRS.EOF
OutStr = ""
For i = 0 to myRS.Fields.Count - 1
OutStr = OutStr & iif(OutStr = "","",",") & myRS.Fields(i)
Next
Print #1, OutStr
myRS.MoveNext
Loop
Close #1
ASKER
The successor to Active Server Pages, ASP.NET websites utilize the .NET framework to produce dynamic, data and content-driven web applications and services. ASP.NET code can be written using any .NET supported language. As of 2009, ASP.NET can also apply the Model-View-Controller (MVC) pattern to web applications
TRUSTED BY
If you are attempting to make this a web type application and do not want to pay for web data fee's then you can use XML or a simple Text file that you read and write to in your own way.
How to do it?
That would depend on what your Project/Application is written in...