from the previous thread...
<%
Dim SQL1, SQL2, SQL
SQL1 = "INSERT INTO Permtracker (Address, plan, Community"
SQL2 = "Values('" & Address & "', '" & plan & "', '" & Community & "'"
If Not IsEmpty(IntranetPost_date) AND Trim(IntranetPost_date) <> "" Then
SQL1 = SQL1 & ", IntranetPost_date"
SQL2 = SQL2 & ", #" & IntranetPost_date & "#"
Else
SQL1 = SQL1 & ", IntranetPost_date"
SQL2 = SQL2 & ", null"
End If
.... etc ....
If Not IsEmpty(Issue_date) AND Trim(Issue_date) <> "" Then
SQL1 = SQL1 & ", Issue_date"
SQL2 = SQL2 & ", #" & Issue_date & "#"
Else
SQL1 = SQL1 & ", Issue_date"
SQL2 = SQL2 & ", null"
End If
SQL = SQL1 & SQL2 & ")"
%>